home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1996 #3 / Amiga Plus CD - 1996 - No. 3.iso / demo-versionen / databaseprofessional_v3.0 / profaktdemo / fakturierung / dienste2.rexx < prev    next >
OS/2 REXX Batch file  |  1995-09-24  |  1KB  |  73 lines
  1. /* Rechnung drucken */
  2.  
  3. OPTIONS RESULTS
  4.  
  5. ADDRESS DataBase
  6.  
  7. Request "_Rechnung|Rechnung_Brief|_Lieferschein|_Mahnung|_Abbruch" "Bitte wählen Sie!"
  8. return = RC
  9.  
  10. IF return = 0 THEN EXIT
  11.  
  12. IF RETURN = 1 THEN DO
  13.   CALL AnzahlKopien
  14.   weiter = 0
  15.   DO WHILE weiter < anzahl
  16.     ADDRESS DataBase
  17.     Print 'PRT:' "ProFaktDEMO/Fakturierung/Rechnung.prt"
  18.     weiter = weiter+1
  19.   END
  20.   ADDRESS
  21.   EXIT
  22. END
  23.  
  24. IF RETURN = 2 THEN DO
  25.   Request "_drucken|_Editieren|_Abbruch" "Rechnungsbrief ..."
  26.   ret2 = RC
  27.   IF ret2 = 0 THEN EXIT
  28.   IF ret2 = 1 THEN DO
  29.     CALL AnzahlKopien
  30.     CALL Masken 'PRT:' "ProFaktDEMO/Fakturierung/RechnungBrief.prt"
  31.   END
  32.   ELSE DO
  33.     ADDRESS COMMAND
  34.     'SYS:c/ed ProFaktDEMO/Fakturierung/RechnungBrief.prt'
  35.     END
  36.   EXIT
  37. END
  38.  
  39. IF RETURN = 3 THEN DO
  40.   CALL AnzahlKopien
  41.   CALL Masken 'PRT:' "ProFaktDEMO/Fakturierung/Lieferschein.prt"
  42. END
  43.  
  44. IF RETURN = 4 THEN DO
  45.   Request "_drucken|_Editieren|_Abbruch" "Mahnung ..."
  46.   ret4 = RC
  47.   IF ret4 = 0 THEN EXIT
  48.   IF ret4 = 1 THEN DO
  49.   CALL AnzahlKopien
  50.   CALL Masken 'PRT:' "ProFaktDEMO/Fakturierung/Mahnung.prt"
  51.   END
  52.   ELSE DO
  53.     ADDRESS COMMAND
  54.     'SYS:c/ed ProFaktDEMO/Fakturierung/Mahnung.prt'
  55.     END
  56.   EXIT
  57. END
  58.  
  59.  
  60. AnzahlKopien:
  61.   RequestNumber 3 "Anzahl ?"
  62.   anzahl = RESULT
  63.   ret1 = RC
  64.   IF ret1 = 5 THEN EXIT
  65. RETURN
  66.  
  67. Masken:
  68.   Request "OK" "Druckmasken in der Demoversion nicht verfügbar"
  69.   ADDRESS
  70.   EXIT
  71. RETURN
  72.  
  73.